home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 18 / fpc103.zip / VOCABS.SEQ < prev    next >
Text File  |  1988-02-29  |  1KB  |  37 lines
  1. \ VOCABS.SEQ    ONLY ALSO vocabulary operators.
  2.  
  3. CONTEXT DUP @ SWAP 2+ !   ( Make FORTH also )
  4.  
  5. VOCABULARY ROOT   ROOT DEFINITIONS
  6.  
  7. : ALSO          ( -- )
  8.                 CONTEXT DUP 2+ #VOCS 2- 2* CMOVE>   ;
  9.  
  10. : ONLY          ( -- )
  11.                 ['] ROOT >BODY  CONTEXT #VOCS 1- 2* 2DUP ERASE + !
  12.                 ROOT ;
  13.  
  14. : SEAL          ( -- )
  15.                 ' >BODY   CONTEXT #VOCS 2* ERASE   CONTEXT !   ;
  16.  
  17. : PREVIOUS      ( -- )
  18.                 CONTEXT DUP 2+ SWAP #VOCS 2- 2* CMOVE
  19.                 CONTEXT #VOCS 2- 2* + OFF   ;
  20.  
  21. : FORTH         ( --- ) FORTH ;
  22. : DEFINITIONS   ( --- ) DEFINITIONS   ;
  23.  
  24. : ORDER         ( -- )
  25.                 CR ." Context: " CONTEXT #VOCS 0 DO DUP @ ?DUP
  26.                 IF  BODY> >NAME .ID THEN   2+ LOOP DROP
  27.                 CR ." Current: " CURRENT @ BODY> >NAME .ID  ;
  28.  
  29. : VOCS          ( -- )
  30.                 CR VOC-LINK @ BEGIN   DUP #THREADS 2* -
  31.                 BODY> >NAME .ID ?CR @ DUP 0= UNTIL   DROP   ;
  32.  
  33. ONLY FORTH ALSO DEFINITIONS
  34. VOCABULARY HIDDEN               \ Some vocabularies we will need.
  35. VOCABULARY BUG
  36.  
  37.